Написати програму, котра реалізує метод трапецій з автоматичним вибором кроку При початкових умовах: n=10, ep=1E-6, a=0, b=(;
program trapaut (input, output); for k:=1 to n-1 do i:=i+f(a+k*h); label l; i:=i*h; var k,n: integer; end; x,i,is,a,b,ep: real; begin function f(x:real): real; writeln(‘введіть a, b, n, ep’); begin read(a, b, n, ep); f:=sqr (sin(x))/(1+cos(x)+0.25); tr(a, b, n, i); end; l: is:=i; procedure tr(a,b:real; n:integer;var i:real); n:=2*n; var h:real; k:integer; tr(a, b, n, i); begin if abs((is-i)/i)>ep then goto l; h:=(b-a)/n; writeln(‘n=’, n’i=’,is); i:=(f(a)+f(b))/2; end.